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~ TITLE it) da PRIMARIES 
-IDENT ‘v04-000' 
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ALL RIGHTS RESERVED. 
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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ASSTRACT: 


The VAX-11 MACRO assembler trans 
modules for input to the VAX-11 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
MODIFIED BY: 


v03.01 MTROO13 Mike maodes 07-Jun-1982 
Modify routine EXPBIN to test the Absolute 
Expression fla MACSGL. ABS SFLAG a little closer 
in order to interpret the expression type correctly. 


v03.00 MTROOO Mike Rhodes 15-Mar-1982 
Rodi fy routine NUMASC to use FLGSV_DLIMSTR flag 
to Ow passin ng pyPnene and semicolons. 
Fixes SPR #11-4290 


v02.12 PCG0008 Peter George 28-Aug-1981 
Fix test for floating negation in PRMUN. 


vO2.11 PCG0002 Peter George 05-May-1981 
Set SYMSM_RELPSECT flag in IDLIST and PRMSYM. 


Ae ky MACRO-32 source code into object 
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Fix problem ate Fae ete “A literals less 
than 8 characters. SPR 11-25674. 


v01.05 0003 B. Schreiber 10-JAN-1979 
Catch syntax error if pound si ~ forgotten before 
ASCII immediate (*A) in operan 

v01.06 0006 B. Schreiber +i 6-JAN-1979 
Fix problem with data gorecet "2 if repsated data 
and uparrow-A data (i.e. .B8YTE *A/ /£10)) 


-SEP-1984 MACRO.SRCJACTPRI.MAR; 1 

00 28 ; 

8 3 v01.10 RNOO23 R. Newland 3-Nov-1979 

0 60 ; New message codes to get error message from system 
4 ) : message file. 
0000 $8 : v01.09 RNOO14 ewland 17-0¢t-1979 

44 be ; Support for G serie H_floating, and Octaword data types. 
0000 96 3 v01.07 RNOOOS R. Newland 12-Aug-1979 
44 of : Remove .ALIGN LONG pot 
4 9 ; v01.11 RNOO27 R. Newland 14-Jan-1980 
0; Fix problems with negative floating point literals. 

0000 7a 3 SPR 1=27884. 

0000 ie ; 
0000 19 3 v01.08 RNOOO? ewland 28-Aug-1979 

0000 74; 

0000 fo 3 

0000 76; 
0000 77; 

0000 78 ; 

0000 79 ; 

0000 80 ; 

0000 81 ; 

0000 Hf 3 

0000 83 ; 
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ONS -SEP-1984 ERACRO. SRE ACTPRI.MAR; 1 
.SBTTL DECLARATIONS 
: INCLUDE FILES: 


; MACROS: 

SMAC_SYMBLKDEF ;DEFINE SYMBOL itt OFFSETS 
SMAC_CTLFLGDEF ;DEFINE CONTR 

$SMAC_INTCODDEF ;DEFINE INT. rive’ COMMANDS 
$MAC— 14 ea ;DEFINE OTHER GOOD SYMBOLS 
SMACASGDEF ; Define message codes 


; EQUATED SYMBOLS: | 


80000000 SIGN_BIT = “x80000000 :SIGN BIT 


: OWN STORAGE: 
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1 
1 
1 
1 
1 
1 
1 
1 
: 
0000 : -PSECT MACS$RO_DATA,NOEXE ,NOWRT,GBL,LONG 
1 p++ 
1 : THIS DISPATCH TABLE IS USED DURING PASS 1 TO JSB TO 
! 3 MATH ACTION ROUTINES. 
1 e 
1 PISARITH_DISP:: 
00000000 1 -LONG 0 3(0)*-SHOULD NOT HAPPEN 
00000000' 1 -LONG P1$ARITH_ADD ; INT$_ADD 
00000000' 1 «LONG PISARITH_ ; INT$S_AND 
00000000' 1 LONG PI1SARITH_ASH ; INT$_ASH 
00000000' 1 1 LONG PISARITH_DIV :INTS_DIV 
00000000° 001 1 LONG PIS$ARITH_MUL 7 INTS_MUL 
00000000° 001 1 LONG PISARITH_NEG : INTS_NEG 
00000000" 001 1 LONG PISARITH_NOT : INTS_NOT 
00000000° 002 1 LONG PISARITH_ ; INT$_OR 
00000000" 002 1 «LONG PISARITH_SAME : INTS_SAME 
44944 6% 1 «LONG PISARITH_SUB ; INT$_SUB 
00000000" 9 : -LONG PISARITH_XOR : INTS_XOR 
0000000 : -PSECT MACSACTPRI_DATA,NOEXE,LONG 
0000 000 1 SYM_FLAG:.WORD 0 ;USED FOR GLOBAL/DEBUG/WEAK/EXTERN 
00 134 ENTRY_MASK: 
0000 000 1 0 ;USED FOR .ENTRY/.VECTOR 


MACSACTPRI PRIMAR 
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IES 
PRIMARY U 
004 1% .SBTTL PRMUN PRIMARY UNARY OPERATORS 
a94 1 § He 
Ope 129 3 ; FUNCTIONAL DESCRIPTION: 
004 14¢ ; PRMUN IS CALLED WHEN A UNARY OPERATOR PRODUCTION IS 
004 143: ENCOUNTERED. IT CHECKS FOR UNARY FLOATING NEGATION 
004 144 ; AND CHANGES IT TO AN XOR OF THE SIGN BIT. I 
0004 145: EXPRESSION IS TO BE EVALUATED IN P ASS THE INTERMEDIATE 
0004 146 ; CODE IS EMITTED. THE EXPRESSION IS THEN EVALUATED 
pode pt ; AND THE RESULT IS RETURNED IN MACSGL_VALUE. 
0004 149 ; INPUTS: 
0004 150 ; 
0004 151 ; MACSAL_VALSTACKCLR7] VALUE OF EXPRESSION 
0004 13¢ 3 : MACSAL-VALSTACK=4CR7] OPERATION 
0004 153 ; 
0004 154 ; ouTPUTS: 
0004 155: 
0006 156 ; MACSGL_VALUE COMPUTED VALUE 
0004 157: 
0004 158 :-- 
0004 159 
00000000 160 .PSECT MACS$RO_CODE_P1,NOWRT,GBL,LONG 
0000 162 -ENABL LSB 
0000 16 
0000 164 PRMUN:: PRIMITIVE = OPUNARY PRIMITIVE 
56 Q000'CF47 DE 0000 165 MOVAL W*MACSAL_VALSTACKCR7), RO: POINT TO TOP OF VALUE STACK 
0006 166 SVPUSH (R6) :PUSH VALUE ONTO STACK 
76 «DS 000E 167 TSTL (RO) 'BACK UP TO ROUTINE VALUE 
0019 169 : IF OPERATION IS FLOATING NEGATION, CHANGE TO XOR OF SIGN BIT 
06 66 91 #0010 = 171 CMPB  —s-« (R6) , WINT$_NEG ;ARE WE DOING A NEGATE? 
26 12 0013 172 BNEQ EQ 
Q000'CcF 91 0015 17 CMPB = W*MAC$GB_RDXNDX,- i VES--AND IS IT A FLOATING NEGATE? 
04 0019 17% FROXSV_FLOAT F 
1F IF QO1A 175 BLSSU 20$ “LESS NO 
0c 68 06 £1 OO1C 176 BBC #FLGSV EVALEXPR, (R11), 108. F VES SOARE WE EVALUATING ON PASS 2 
0020 177 SINTOUT -tW INTE S #*x8000> : Yes--stack Tlest ing point sign bit 
66 OB 9A 002C 178108: ##$MOVZBL “#INT XOR (RE) [CHANGE COMMAND T 
QO02F 179 SVPUSH #* yB005 : Stack sign bi 
50 66 OD 00 B 180 20$: MOVL (R6) RO :GET ACTIO 
56 650) «(D0 s(003E~= «181 MOVL  RO,R6 REMEMBER IT FOR LATER 
0B 6B 06 €1 0041 188 BBC #FLGSV_EVALEXPR, (R11), 30$ :BRANCH IF NOT EVAL ON PASS 2 
51 02 9A 0045 18 MOVZBL ;SET BYTE COUNT 
FFBS' 30 0048 184 BSBW MACSINTOUT [EMIT TO INT. FILE 
0000'CF DO oe8 185 MOVL RG oon MACSGC E a pt ‘SAVE END OF EXPR POINTER 
56 0000'CF46 00 0050 186 30S: MOVL WPISARITH_ pisp R6],R6 :GET ADDRESS OF ROUTINE 
66 16 0056 187 J CALL 
G58 188 SVPOP W*MACSGL_VALUE Ret hieve VALUE 
05 0062 189 RSB 
0063 190 
0063 = 191 .DSABL LSB 
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-SBTTL PRMSYM PRIMARY SYMBOLS 


+ 
FUNCTIONAL DESCRIPTION 


; PRNSYM 1s INVOKED WHEN AN ID IS FOUND IN THE PRODUCTION. 
; BASED ON THE SYMBOL ATTRIBUTES (LOCAL, GLOBAL, EXTERNAL. 
; DEFINED. ABSOLUTE) IT Mit SET CONTROL FLAGS FOR LATER 
; PROCESSING OF THE ID. 
: INPUTS: 
: MACSGL_VALUE POINTER TO ID SYMBOL BLOCK 
: OUTPUTS: 
PRMSYM:: ;PRIMARY = ID 
56 O000'CF D0 MOVL W*MACSGL VALUE .R6 :GET POINTER TO SYMBOL BLOCK 
18 E0 BBS #FLGSV_NOREF,(R11),5$ | :BRANCH IF WE SHOULD NOT REF SYMBOL 
09 a6 «0080 BFA. BISW2 W#SYMSM“REF ,SYMSW_FLAG(R6) ;FLAG SYMBOL AS REFEREN CED 
50  O0000000'EF 0 OVL  MACSGL“PSECTPTR,RO :GET POINTER TO PSECT 
06 0D AO 03 BBC #PSC - sIF ABS PSECT 


: SKIP 
09 A6 0800 BF AB BIS ¥ FLAG(R6) ;SET REL PSECT FLAG 
09 AG 4000 BF AA S$: BIC MSM~SUPR,SYM$W_FLAG(R6) :AND CLEAR SUPPRESS BIT 
0309 A6 00. £0 BBS #SYMSV~DEF , SYMSW_FLAG(R6) 
iF F SYMBOL NOT YET DEFINED 
68 046 CA BICL2 M#FLGSM_COMPEXPR,(R11) | :THEN EXPR VALUE NOT YET KNOWN 
0c 83 10$:  BITW #SYMSM7GLOBL! SYMSM_EX xTR Ni- ;SYMBOL GLOBAL OR EXTERNAL? 
09 A6 SYMSW_FLAGTR6 
1B («13 BEQL 208 sIF EQL NO 
0041 8F B3 0098 BITW § #SYMSM_DEF!SYMSM LOCAL ,~i¥ES=-DEFINED OR LOCAL? 
09 A6 009C SYMSW_FLAG(R6) : 
13. (12 O09 BNEQ 208 iF NEQ NO 
00A0 : SYMBOL IS EXTERNAL OR GLOBAL 
00A0 MBOL NOT oes DEF INED 
3C 6B 46006)~=—OE1—s«O0A0 BBC #FLGSV EVALEXPR, (R11), 508 EVALUATE. 0 N PASS 2? 
O0A4 SINTOUT_LW INTS STK vES-“STACK GLOBAL 
0000'CF 59 D0 OOAC MOVL “RO .W°MACSGL _ EXPEND *SAVE END OF EXPRESSION 


t LOCAL OR DEFINE SYMBOL 
50s: cHPB ruse SEG(R6) ,W*MACSGL_PRMSEG DIFFERENT PSECTS? 


F EQL NO 
#SYMSV_ABS, SYMSW_FLAG(R6S , 308; s YESS AUMLESS SYMBOL ABSOLUTE | 
TSTL  WMACSGL_PRMSEG :REALLY DIFFERENT PSECTS? 
BEQL 0$ QL NO 
BICL2 #FLGSM_COMPEXPR,(R11) _:YES=-VALUE NOT mt! KNOWN | 
30$: BBC #FLGSV VSEVALEXPR. ( (RIT) ,408 EVALUATE 0 ASS 2? | 
SINTOUT_LW INTS |S -STACK BOL | 
MOVL “R9,W* matScL EXPEND + SAVE END OF EXPRESSION | 
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-SBTTL NUMERIC PRIMARIES 


PRI 
NUME 


p++ 
; FUNCTIONAL DESCRIPTION: 
; NUMFLT IS CALLED WHEN **F* IS SEEN. A FLOATING POINT NUMBER 
; 1S SCANNED. 
NUMFLT ;SPECIAL_OPERATOR = DUPF 
FEFD 3 BSBW CSSKIPSP ;SKIP SPACES 
FEFA’ 30 BSBW MACSGETFLOAT sACCUMULATE FLOATING POINT NUMBER 
00 «(11 BRB MINT ;TREAT AS INTEGER 


s++ 
; FUNCTIONAL DESCRIPTION: 


: PRMINT IS CALLED WHEN AN INTEGER (OR INTEGER-LIKE) TOKEN 
; 1S FOUND. IF THE EXPRESSION IS BEING EVALUATED IN PASS 2 
; THE VALUE IS EMITTED TO THE INTERMEDIATE FILE. 


PRMINT: : RIMARY = DINTEGER 
BBC_ ss #FLGSV_EVALEXPR, (R11), 108. "EVALUATE ON PASS 2? 
SINTOLT LW INTE STKL.<WEMACSGL_VALUE> ZYES-=STACK VALUE 
OVL ~R9,W*MACSGL_EXPEND ;SAVE END OF EXPRESSION 


OF 68 06 €1 


OOOO'CF 59 DO 
10$: 


s++ 
; FUNCTIONAL DESCRIPTION: 


; PRMBRK IS CALLED WHEN AN EXPRESSION IN ANGLE BRACKETS IS 
: SCANNED. THE VALUE IS PICKED OFF OF THE STACK AND PLACED 
; IN MACS$GL_VALUE. 


PRMBRK: : PRIMARY = DANGOPN EXPR DANGCLS 
OOOO'CF FFFC*CF47 DO MOVL WPRACEAL Yat STACK SEAT" = ;VALUE IS ON STACK 


05 RSB 


:++ 
; FUNCTIONAL DESCRIPTION: 


; PRMRDX IS CALLED WHEN A RADIX CONTROL PRIMARY HAS BEEN 
. SCANNED. THE RADIX IS RESET TO THE PREVIOUS RADIX. 


RADIX CONTROL PRIMARY 
OOOO'CF FFFC'CF47 F6 PREVIOUS 


05 


2 ;PRIMARY = 
CVTLB W*MACSAL_VALSTACK=4CR7],- ;RESET TO 
- Q*MACSGB_RDXNDX’ RADIX 
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E v7 .SBTTL PROGRAM COUNTER PRIMARY 
12E 8 ++ 
; 0 ; FUNCTIONAL DESCRIPTION: 
12E ¢ ; PRMPC IS CALLED WHEN A PC REFERENCE (''.") IS SCANNED. 
12E : IF THE EXPRESSION IS BEING EVALUATED ON PASS 
12 4; — IS EMITTED TO STACK THE PC VALUE. IF THE EXPRESSION 
12E 5; CONTAINS CROSS=PSECT REFERENCES THEN THE EXPRESSION IS 
012E $ ; A COMPILE-TIME EXPRESSION AND THE FLAG (FLG$M_COMPEXPR) 
a 3 : IS CLEARED IN THE FLAGS WORD. 
12E ie 
12E 0 
4 E 1 PRMPC:: = DPC 
0B 68 06 €1 O1 32 BBC #FLGS$V -EVALEXPR, (R11), 108" oy iF Not EVALUATE ON PASS 2 
01 33 SINTOUT_X INTS~STK PC TYES=-=S PC 
0000' CF dO (01 334 MOVL RO, W°MACS $6L_E XPEND + SAVE END OF EXPRESSION 
0000'CF 000° DO 013D 35 10$: MOVL § W*MACSGL_PC7W*MACSGL_VALUE ;RETURN VALUE IS PC 
000' D0 0144 336 MOVL W°MACSEL “PSECTPTR,RO. ;GET POINTER TO CURRENT PSECT 
E1 0149 37 BBC #PSCSV_REL,PSCSW_ OPTIONS <( ne 
O14E 38 ANCH IF ABS PSECT 
D6 O14e 39 INCL W*MACSGL_ABSFLAG :RELOCATABLE==fLAG NOT ABs EXPR 
D5 015 340 TSTL  W*MACSGL-PRMSEG SEXPR HAVE A PSECT YET? 
12 0156 341 BNEQ 208 :IF NEQ YES 
DO 0158 342 MOVL W*MAC$GL_PSECT,- [NO=-USE CURRENT PSECT 
11 Sree ti BRB 308 O°MACSGL_PRHSEG 
D1 0161 35 208: CMPL W*MACSGL_PRMSEG,- sYES=-CROSS PSECT REFERENCES? 
0165 46 Q*MACSGL_PSECT 
13 0168 347 BEQL 30$ :1F EQL NO 
CA 016A 348 BICL2 #FLGSM_COMPEXPR,(R11)  ;YES=-FLAG NOT COMPILE EXPRESSION 
05 016D 349 308: RSB 
| 
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~-SBTTL ENTRY POINT MASK ROUTINES 


p++ 
; FUNCTIONAL DESCRIPTION: 


; RGLST1 AND REGLST ARE CALLED TO ACCUMULATE AN ENTRY-POINT 
; MASK. RGLST1 IS CALLED FOR THE FIRST ITEM TO INITIALIZE THE 
; ENTRY MASK TO ZERO, AND REGLST IS CALLED FOR EACH SUCCESSIVE 
; ITEM IN THE MASK. THE APPROPRIATE BIT IN ENTRY_MASK IS 
: SET FOR LATER PROCESSING BY THE 'MASK' ROUTINE. 
RGLST1:: :REGLIS = MASK_ITEM 
0002'CF B84 CLRW = WENTRY_MASK :START WITH 0 
REGLST:: :REGLIS = REGLIS MASK_ITEM 
50 O000'CF47 00 MOVL  W*MACSAL_VALSTACKCR7],RO:GET THE MASK BIT NUMBER 
00 0002'CF 50 ES a BBCS RO,W*ENTRY_MASK, 10$ [SET THE BIT IN THE MASK 


+e 
FUNCTIONAL DESCRIPTION: 


MASK IS CALLED WHEN AN ENTRY=POINT MASK HAS BEEN ACCUMULATED 
IN ENTRY MASK. IF WE ARE EVALUATEING EXPRESSIONS THE VALUE 
WILL BE STACKED IN PASS 2. 


C008 NINN SIN NNN IPA AA AAA AIIM = 


OR et a ee ee et te a a a ad ah od od a 
NOU EWR 2 CO OO NAU EWN 2 9 OD NAME WIN  O OD NIA NE WWIN OOD NA UNE WP SOO ONOU SE Win 


WOOO O0O00 OO 0000 090900 0000 09 09 09 09 09 09 09 08 SINS NSIS SINISE SSN NNO OOOO OAAOAOOOAOAS OM 


BPP LLL FE FNMA AAAAAAAAAAA AAA AAIWA AAAI AANWA NAA AAAI 


fle lel alee le lel alee lal ele elalelelolelelole alee lela aleololeleoleolelolelelelolaleleloleal elololelelelelal aloo la} 
PPP PEE PRMOAOOCOCOCOCOCOOCOCOCOA LNT HHH HMOOKIFUMMMMmMmMmmMmmmmmmmmmmrmnrrn << 


.ENABL LSB 
82 MASK:: ;REGISTER_MASK = DUPM DANGOPN REGLIS DANGCLS 
50 0002'CF 3¢ 8 MOVZWL W*ENTRY_MASK,RO ‘PICK UP MASK WORD 
10 11 ; BRB 10$ ‘FINISH IN COMMON CODE 
86 ;++ 
8 > FUNCTIONAL DESCRIPTION: 
89 ; MASKX IS CALLED WHEN '*MRn' IS SCANNED. A MASK IS CREATED 
90 : AND THE VALUE IS SENT TO PASS 2 IF EXPRESSIONS ARE BEING 
2 ; EVALUATED. 
a 
95 MASKX:: ;REGISTER_MASK = DUPM MASK_ITEM 
51 Q000'CF47 00 9 MOVL § W*MACSAL_VALSTACKCR7],R1:GET MASK-BIT NUMBER 
50 D4 9 CLRL ‘START WITH A CLEAN SLATE 
0450 51 €3 9 BBCS R1,R0,10$ :SET THE MASK BIT AND JOIN COMMON CODE 
02. «11 3 BRB 10$ [BETTER SAFE THAN SORRY 
O01 ;++ | 
02 : FUNCTIONAL DESCRIPTION: | 
: MASKNL IS CALLED WHEN A NULL ENTRY-MASK IS SCANNED. IF 
: EXPRESSSIONS ARE BEING EVALUATED, A ZERO 1S STACKED IN | 
07 : : | 
| 
| 
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410 MASKNL:: :REGISTER_MASK = DUPM DANGOPN DANGCLS 

411 CLRL = RO RESULT 18 0. 

aig 10$:  MOVL RO WeMACSGL VALUE TORE RESUL 

41 BBC #FLGSV VEVALEXPR, (R11) 208" BRANCH 1F “N. EXPRESSION. EVALUATION 

414 SINTOUT_LW INTS STKL, <W*MACSGL_V -YES==SEND VALUE TO PASS 2 

415 MOVL “R9,W* matece + EXPEND ae Ave END OF EXPRESSION 

a 20$: 'y 

41 

418 .DSABL LSB 


Sy 


) 
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v04=000 EXPRESSIONS =SEP=1984 94:0 :04 EMACRO SRE ACTPRI.MAR; 1 
1AF = 420 .SBTTL EXPRESSIONS 
1AF 40.1 
AF 4 § p++ 
1AF 403: VAX=11 MACRO RECOGNIZES DIFFERENT TYPES OF EXPRESSIONS. THESE 
1AF 0404: ROUTINES PROCESS COMPILE-TIME EXPRESSIONS. THE R LT OF SUCH 
1AF 405: AN EXPRESSION IS A LONGWORD WHICH WILL BE KNOWN BY 
1AF 4 ‘ : OR AT LINK TIME IF THE EXPRESSION INVOLVES GLOBAL POR 
IAF 4o7 : EXTERNALS). THE MOST COMMON USAGE OF THIS TYPE OF EXPRESSIONS 
1AF 428: IN OPERANDS. ANOTHER TYPE OF EXPRESSION IS FOUN p IN THE 
IAF 429 : ASSIGNMENT STATMENT WHERE AN EXPRESSION GENERATES COD 
i ri 3 EVALUATE THE EXPRESSION AT RUN TIME. 
thy o3¢ : THE "PRIMITIVE’ ROUTINES SET FLAGS DESCRIBING THE EXPRESSION. 
O1AF §433: THESE FLAGS MUST BE INITIALIZED BY THE EXPRESSION CALLER IF 
fe eRe 3 THEY ARE TO BE USED. 
O1AF 436: FLGSM_COMPEXPR FALSE IF EXPRESSION VALUE NOT YET KNOWN 
O1AF «= 437: FLGSM-EVALEXPR TRUE CAUSES EVALUATION TO OCCUR ON PASS 2 
OIAr 438 ; FLG$M-ABSEXPR TRUE INDICATES THAT EXPRESSION IS ABSOLUTE 
O1AF 440 ;-- 
O1AF = 441 
O1AF 44g EXPBIN:: EXPR = EXPR OPBINARY PRIMARY 
55 57 DO O1AF 44 ” R7,R5 ‘COPY STACK POINTER 
01B2 444 $VPUSH OMA CSAL -VALSTACK-BERSJ. [PUSH LEFT jOBERAND ONTO STACK 
O1BD 445 SVPUSH W*MACSAL-VALSTACKCRS] _ :;PUSH RIGHT OPERAND 
56 FFFC'CF4S DO O1C8 446 MOVL WMACSAL~VALSTACK-4(R5],R6 ;GET COMMAND FROM STACK 
0B 68 06 £1 OICE 447 BBC #FLG$V_EQALEXPR, CRITD 16S. :EVALUEATE 0 
56 0 0102 448 MOVL R :YES--GET CEMRAND. 
FE28" 30 0105 449 BSBW MACSINT ‘OUTPUT CMD TO INT FILE 
0000'cr 59 DO 0108 450 MOVL 9, UMACSOC. EXPEND ;SAVE END OF EXPRESSSION PTR 
56 «62S «6(01DD) «Ss 451 108: TSTL oR iWAS ROUTINE SUPPLIED? 
58 4613 «O1DF 43g BEQL © 408 SIF EQL N 
OA 56 91 O181 45 CMPB ss R6,, MINT$_SUB «Te ERACTION? 
10 12 O184 454 BNEQ ‘IF NEQ NO 
01 OO00'CF D1 O166 455 CMPL § W*MACSGL_ABSFLAG, #1 [YES=-SEVERAL RELATIVE REFS? 
09 15 O18B 456 BLEQ 20% “IF LEQ NO 
05 68 02 €1 O1€D 457 BBC #ELGSV_COMPEXPR, (R11) ,208 :YES=-REALLY COMPILE TIME EXPR? 
O000'CF 02 C2 O1F1 458 SUBL2 #2,W°MACSGL_ABSFLAG TYES=-MAKE RESULT ABSOLUTE 
O000'CF D4 O1F6 459 208: CLRL. sow" MACSGL. VAC3 'CLEAR EXPRESSION OVERFLOWW IND. 
56 DD OFA 460 PUSHL  R6 SSAVE ROUTINE IDENT. 
56 0000°CF46 D0 OIF 461 MOVL ot SARITH_DISPLR6I.RG :GET ROUTINE ADDRESS 
66 16 0202 46¢ JSB (R6) [CALL ROUTINE 
56 BEDO 0 04 46 POPL R6 i RESTORE ROUTINE IDENT 
51 0000°CF 09 7 464 MOVL § WAMACSGL_VAL3,R1 TEXPRESSION OVERFLOW? 
33 Ci 920¢ 465 BEQL 50$ :IF EQL NO 
0000'CF 05 0 OF 466 TSTL § W*MACSGL_ABSFLAG :VES~-ABSOLUTE EXPRESSION? 
gp 12 0212 467 BNEQ 50$ [IF NEQ NO 
52 00708810 8F »00 Sah 468 MOVL #MACS_EXPOVR52,R2 3; No=-assume expression overflow 
04 56 91 1B 469 CMPB saR6 ,WIRTS$_DIV : UNLESS IT WAS DIVISION 
0B 12 021 470 BNEQ 30§ [IF NEQ NO 
51 DS 0 471 TSTL = R11 [THEN CHECK FOR DIVIDE BY 0 
07 «+18 «O Are BGEG 30$ SIF GEQ THEN NOT pPiVide BY 0 
52 00708808 BF 00 4 47 #MACS_DIVBYZERO,R2 : It was divide by ze 
<8 474 308: SINTout ah INT$_WRN,<R2.W°MACSGL_ERRPT> ; EMIT ERROR TO PASS 2 
08 11 3? 423 BRB 
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#0 
W*MACSGL_VALUE 
WiBACSOL. ABSFLAG, #1 


6 
G*MACS$GL_ABSFLAG,60$ 
#1,W*MACSGL “ABSFLAG 


;RESULT 
:POP RES 
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Is 0 
ULT INTO MACSGL_VALUE 


wise. REFERENCES? 


ARE THE NUMBER OF REFs ODD? 
CALL_IT ONE (RESULT IS.. 
EXPRESSION IS RELOCATEABLE) 
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0 af : 7 -SBTTL UP=ARROW-A ASCII TEXT PRIMARY 
SF 4 p++ 
ef rh 3 FUNCTIONAL DESCRIPTION: 
O25F 492 ; NUMASC IS INVOKED WHEN THE PRODUCTION ‘UP=ARROW-A' IS 
025F 493 ; FOUND IN THE INPUT. IT SCANS THE NEXT CHARACTER AS A 
O25F 494 ; DELIMITER, THEN READS TEXT, STORING UP TO THE MAXIMUM 
025F 495 ; NUMBER OF CHARACTERS IN ‘MAC VALUE’, LOOKI 
025F 496 ; THE MATCHING DELIMITER. IF THE MAXIMUM NUMBER OF BYTES 
O25F 497 ; THIS O D IS EXCEEDED 0 END-OF-LINE IS FOUND 
8 SF 498 ; BEFORE THE MATCHING DELIMITER, A MESSAGE IS OUTPUT 
se C499: TO PASS 2. 
O25F 500; 
O25F 501 ;-- 
ith 286 
025F 503 NUMASC:: ;SPECIAL OPERATOR = DUPA 
00 6B 24 —3 Fe 504 BBCS #FLGSV_UPAFLG,(R11),.+1 SFLAG DUPA WAS SEEN 
FD9A' 30 0263 505 BSBW MACSSKIPSP ;SKIP SPACES AND TABS 
56 0000'CF 9E 0266 506 MOVAB W*MAC$GQ_VALUEQ,R6 sPOINT TO RESULT AREA 
66 7C 0268 507 CLRQ (R6) ;CLEAR OUT 8 BYTES 
08 A6 7C O26D 508 CLRQ 8(R6) 3 and then the next 8 bytes 
55 SA DO 0270 £509 MOVIL R10,R5 3 COPY DELIMITER 
0D 55 91 0273 510 CMPB R5,#CR 31S DELIMITER CR? | 
1F 4613 (0276)«=«(511 BEQL 208 SIF EQL YES=-ERR 
54 OO00'CF 9A 0278 alg MOVZBL W*MACSGL_OPSIZE,R4 :GET MAX SIZE OF OPERAND 
00 68 2F 53 027D 51 BCS #FLG$V_DCIMSTR,(R11),.+41 PASS ALL CHARACTERS (EVEN -;) 
FD7C" 0 0281 514 10$: BSBW MACSGETCHR GET NEXT ‘ee CTER 
55 SA 91 0284 515 CMPB R10,R5 :DEL Lin i ER? 
1C 13 0287 516 BEQL 30$ 227 
0D 5A 91 0289 517 CMPB R10,4CR <NO-SEND OF LINE? 
09 413° «028C 518 BEQL 20$ t IF EQL YES-CERROR 
54 D7 O28E 519 DECL R4 A Oe TO STORE BYTE? 
EF 19 0290 520 BLSS 10$ :DON'T STORE IF TOO MANY CHARS 
86 5A 90 0292 521 MOVB R10, (R6)+ s;STORE CHARACTER 
EA 11 0$33 258 BRB 10$ :LOOP FOR MORE 
$94 $34 ; FOUND EOL BEFORE DELIMITER | 
0297 526 208: SMAC_ERR ep pans ; Get message code | 
FD61' 30 5935 5c? BSBW MACSERRORP : ISSUE MESSAGE TO PASS 2 
09 6B 2F ES O29F 528 BBSC #FLGSV_ OR TASTR. (R11), 40$° sCLEAR ALLCHR AND GO FINISH UP 
07 +11 °«=0 AS 5 ; BRB 40$ :FINISH | 
6 As 33 3; FOUND OTHER DELIMITER 
00 68 oF eS §5A2 5 5 S0$: BBSC #FLGSV PLINSTR. (R11),.+1 ;DO0 NOT PASS ALL CHARACTERS 
FD54° 0 O2A9 2 4 BSBW MACSGETCH SKIP OVER DELIMITER 
54 DS O2AC 5 40$: TSTL RG :T00 MANY CHARACTERS? 
10 18 O2AE 536 BGEQ 50$ : EQ NO 
8 Be a 50s SINTOUT_LW INTS_WRN, <#MACS$_DATATRUNC ,W*MACSGL_ERRPT> : Yes--report error 
08 OO00'CEF 91 oF 238 CMPB W*MACSGL_OPSIZE 48 3; Was this a QUAD or OCTA operand? 
19 C ak BLSS 70$ ; No if L 
0O000'CF OO00'CF o»D0 of ‘] MOVL WA PACSSL_V ae 33 ; Yes: save bits 32 to 63 
10 Q000'CF 91 § CE 248 CMPB W*MACSGL ~Opst ze. #16 ; Was this an OCTA operand? 


er epaar ee PRIMARIES 


UP=ARROW"A ASCII TEXT PRIMARY 

07 12 it 4a BNEQ 

QOOO'CF OO00'CF 7D f: 45 MOVa 
FE29 31 O2dC 47 708: BRW 


"SrSEp=198e 04:47:06 ERACKO: SRETACTPRI -RAR; 1 


3; No if 


70$ NEQ 
W*MAC$GQ VAL2, - 3; Yes: save bits 64 to 127 


PRM INT 


a tt HIGH_64 
; TREAT AS INTEGER DATA 


MACSACTPRI PRIMAR 1 1984 yas M 4- 
+e 9 “ =see- =138 be: 00: VMS Macro V04-00 
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= 
» 
Oo 
pa 


IES 
CON 
DF 49 -SBTTL RADIX CONTROL 
BO BBF ane 
DE 236 : FUNCTIONAL DESCRIPTION: 
DF 54 : THESE FOUR ROUTINES ARE INVOKED alten A RADIX CONTROL 
DF 55; PRIMARY IS ENCOUNTERED . THESE ROUTINES SAVE THE 
DF 28 3 OLD RADIX IN MAC$GL_VALUE (FOR LATER RESTORATION) AND 
44 22 ; SET THE NEW RADIX in” MACSGB, ROXNDX. 
ee 
6 DF 26 RDXBIN:: ;RADIX_CONTROL = DUPB 
OA 10 O2DF 2¢ BSBB SET_RADIX 'GO SET THE INDEX FOR BINARY 
00 8 3 564 -BYTE RDXSV_BINARY 
0 3 65 RDXDEC:: ;RADIX_CONTROL = DUPD 
07 10 O2E 566 BSBB SET_RADIX :SET DECIMAL RADIX 
02 ig 44 BYTE RDXSV.D DECIMAL 
02E5 569 RDXOCT:: ;RADIX_CONTROL = DUPO 
04 10 BsEs 570 BSBB SET_RADIX SET OCTAL RADIX 
01 8 +4 29) -BYTE RDXSV_OCTAL 
octg 258 RDXHEX:: ;RADIX CONTROL = DUPX 
01 10 O2E8 574 BSBB SET_RADIX SET HEX RADIX 
03 BsEA ef? -BYTE RDXSV_HEX 
bgeB Tad SET_RADIX: 
0000 CF 9A ogee 22? MOVZBL W*MAC$GB ROXNDX = say SAVE CURRENT INDEX 
OO0O'CF 9EF 90 O2F2 581 MOVB @a(SP)+,W*MACSGB_RDXNDX ;SET NEW RADIX AND CLEAN STACK 
05 oer? 258 RSB ;RETURN TO CALLER'S CALLER 
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Fs 5 -SBTTL OPERATORS 
F oe 

p F 8 ; FUNCTIONAL DESCRIPTION: 

8 Fe 90 ; THESE OPERATOR ROUTINES ARE CALLED WHEN A BINARY OPERATOR 
F 91; 1S ENCOUNTERED IN THE Text. THESE ROUTINES MERELY SET 

02F8 3 3 THE OPERATOR NUMBER INTO MACS$GL_VALUE FOR LATER PROCESSING 

0 Fe ¥ 5 BY THE EXPRESSION EVALUATION ROUTINE (EXPBIN). 

§ r 598 -- 

O5rB 869 

ogee 238 

O2F 99 MACRO OP OPR 

O2F8 600 BSBB SET UP OPERATOR 

O2F8 601 -BYTE  INTS_'OPR 

O2F8 90¢ .ENDM 

O2F8 60 

O2F8 604 

02F8 605 OPPLUS:: ;OPBINARY = DDPLUS 

O2F8 606 P ADD 

O2FB 607 OPMINU:: ;OPBINARY = DDMINUS 

O2FB 608 oP SUB 

O2FE 609 OPMUL:: sOPBINARY = DDTIMES 

O2FE 610 oP MUL 

0301 611 OPDIV:: sOPBINARY = DDDIV 

0301 ol¢ op DIV 

0304 613 OPAND:: sOPBINARY = DDAND 

0304 614 op AND 

0307 615 OPOR:: :OPBINARY = DDOR 

0307 616 op OR 

030A 617 OPXOR:: :OPBINARY = DDXOR 

030A 618 op XOR 

030D 619 OPASH:: :OPBINARY = DDASH 

030D 620 oP ASH 

0310 621 OPCOM:: sOPBINARY = DDUPC 

0310 O56 oP NOT 

0313 623 OPNEG:: ;OPBINARY = DDMINUS 

0313 624 oP NEG 

0316 625 OPSAME:: sOPBINARY = DDPLUS 

0316 og6 oP SAME 

0319 627 

0313 628 SET_UP_OPERATOR: 

OO0O'CF 9E 9A 19 629 MOVZBL a@(SP)+,W*MACSGL_VALUE  ;GET THE OPERATOR NUMBER 
05 O31E 630 RSB SRETURN TO CALLER'S CALLER 


ee ~ — en —_ -_ a 


MAI 
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IF 6 : .SBTTL SYMBOL ATTRIBUTE DIRECTIVES -GLOBL/DEBUG/WEAK/EXTRN 
1F 634 ;4+ 
IF 6 5 : FUNCTIONAL DESCRIPTION: 
iF 6 “ ; GLOBAL /DEBUG/WEAK/EXTRN ARE CALLED WHEN THE CORRE SPONDING 
O31F 638: DIRECTIVE IS SCANNED. FLAGS ARE SET IN SYM_FLAG FOR THE 
O31F 639 : ROUTINE "IDLIST’. ‘IDLIST' ALLED FOR EACH ABOL IN 
O31F 640: THE LIST AND IT SETS THE BITS IN SYM_FLAG IN THE SYMBOL 
O31F 641: BLOCK FOR THAT SYMBOL. 
O31F o4¢ ; 
0 1F 643 i=- 
1F 6644 
O31F 645 GLOBAL:: :ID_LIST_HEAD = KGLOBL 
OE 10 O31F 646 BSBB = SET_SYM_FLAG [SET FLAG TO REMEMBER 
0004 038 647 «WORD SYMSM_GCOBL 
03 : 649 DEBUG:: :ID_LIST_HEAD = KDEBUG 
0A 10 0323 650 BSBB SET_SYM_FLAG ‘SET FLAGS TO REMEMBER 
OOAO 0325 651 WORD SYMSM_ DEBUG’ SYMSM. REF 
0327 63¢ 
B35! 653 WEAK:: :ID_LIST_HEAD = KWEAK 
06 10 0327 654 BSBB  SET_SYM_FLAG *SET FLAGS TO REMEMBER 
0006 bas? $2? WORD SYMSM_WEAK!SYMSM_GLOBL 
0328 657 EXTRN:: ;ID_LIST_HEAD = KEXTRN 
02 10 0328 658 BSBB = SET_SYM_FLAG *SET THE FLAG 
0008 032D 659 .WORD SYMSM_ERTRN 
O32F 660 
O32F 661 
O32F 66¢ SET_SYM_FLAG: 
0000'CF 9E BO O3¢F 66 MOVW a@(SP)+,W*SYM_FLAG : REMEMBER THE FLAG BIT 
05 0334 664 RSB "RETURN TO CALLER'S CALLER 
0339 665 
0335 666: 
0335 667 : FUNCTIONAL DESCRIPTION 
033) 669 : AFTER A , GLOBAL /DEBUG/WEAK/EXTRN DIRECTIVE HAS BEEN SCANNED, 
0335 670: § CALLED FOR EACH SYMBOL IN THE LIST OF SYMB 
0335 «671: ACCORPANY ING. the DIRECTIVE. THE FLAGS CONTAINED IN SYM_FLAG 
0335 672 ; ARE SET THE SYMBOL. IF THE DIRECTIVE IS .EXTRN AN 
0335 «673: THE | Stmpor 1S ALREADY DEFINED, AN ERROR MESSAGE IS ISSUED 
0335 «674: TO PASS 2. 
Be ffs i 
0335 «67 
0 33 678 IDLIST:: LIST = ID | 
QO000'CF47 00 0335 67 MOVL W*MACSAL VALSTACKER7] R6: tert POINTER TO SYMBOL BLOCK | 
0 Sooon! CF 603)—C«*E;? 0 38 680 BBC #SVmSV _ERTRN,W*SYM_FLAG,10$ ;BRANCH IF NOT 
08 09 A6 «6000)—SCOE1 «0341S 6831 BBC #SYMSV "DEF Sims. “FEAG(RA) tobe: ZBRANCH lf SyAGOL RNOT DEF INED 
0346 68¢ $MAC_ERR Syn MDEFINMO es--get sage 
FCB2' 30 0348 6 BSBW” MA CSERRORPT SYMBOL DECLARED EXTER AL BUT ALREADY DEFINE | 
09 A6 0000" CF AB O34E 684 10$:  BISW  W*SYM FLAG, SYMS$W_F usin pa BIT (S) 1 N SYMBOL LAGS | 
05 09 A 5 £1 54 685 BBC #SYMS0_DEBU 6 SYRSU- FLA : BRAN NOTe DEBUE 
00 —E £4 0359 686 BBSC  #SYMS$V -fOPRS MSW MeLAGCRG) ‘heed DEBUG--CLEAR SUPR BIT 
Meno: F OA 3E 687 20$:  MOVZBL #CRFSK REF arte tte 
50 00000090 "EF D0 0362 688 MOVL  MACSGL“PSECTPTR,RO :GET P EFERENC Fo PSECT DATA 
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DEBUG 
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Symbol table Tey 7 §F 00: be YRACRO SRE ACTPRI.MAR; 1 ° By voi 

SYMSB_SEG 000000 

SYM$SB_TOKE 8 O08 

SYMSK-BLKSI D 

SYMSK"MAXLEN = iF 

SYMSK-TWOCOL = 10 

SYMSL “LINK 99 

SYMSL-VA 0 

SYMSM = 00 40 

SYMSM_ASN = 10 

SYMSM_~CRFO = 00002000 

SYMSM_DEBUG = 00000020 

SYMSM_DEF = 9 99 1 

SYMSM_DELMAC = 0 

SYMSM_EPT = 0000020 

SYMSM-EXTRN = 0000000 

SYMSM_GLOBL = 90000004 

SYMSM_LOCAL = 00000040 

SYMSM_ODBG = 00000400 

SYMSM_REF = 00000080 

SYMSM_RELPSECT = 00000800 

SYMSM_SUPR = 00004000 

SYMSM_WEAK = 00000002 

SYMSM_XCRF = 00001000 

SYMSV_ABS = 00000004 

SYMSV~ASN = 00000008 

SYMSV~CRFO = 00000000 

SYMSV-DEBUG = 00000005 

SYMSV_DEF = 00000000 

SYMSV“DELMAC = 00000009 

SYMSV-EPT = 00000009 

SYMSV“EXTRN = 00000003 

SYMSV“GLOBL = 00000002 

SYMSV-LOCAL = 00000006 

SYM$V_ODBG = 0000000 

SYMSV-REF = 00000007 

SYMSV-RELPSECT = 00000008 

SYM$V~SUPR = 0000000€ 

SYMSV— = 00000001 

SYMSV-XCRF = 0000000C 

SYMSW~FLAG 00000009 

SYM_FCAG 00000000 R 04 

TAB : 9000 9 

WEAK 0000 ¢ RG 05 

x1 = 000000 

x2 = 0008000 

toa menm ene were wees + 
: Psect synopsis ! 

} 

PSECT name Allocation PSECT No. Attributes 

" ‘ 00000 < -) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 

BLANK 5 $600 ( 03} 1( 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$RO_DATA BB00080 ¢ 81) OS C82) NOPLE WSR GON REL. GOL NOSHR NOEXE RD NOURT NOVEE CONG = 

MACSACTPRI_ DATA 0 $0008 ( 4.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 

| 
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Psect synopsis etsy $4300: 48 EMACRO SRE ACTPRI.MAR; 1 . (3) vou 
MACSRO_CODE_P1 00000377 « 887.) 05 ¢ 5.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
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! Performance indicators ! 


¢ereer etree enmraeneeec = Seow ome + 


Phase Page faults CPU Time Elapsed Time 


Initialization 35° 00:00:00 00:00:02.43 | 
Command processing 
| 
| 


Pass 

pyado} table sort 
Pass 

Symbol table output 


Psect synopsis output 
Cross-reference output 

Assembler run totals 55 
The working set Limit was 1500 pages. 
34438 bytes (68 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 30 pages of symbol table space allocated to hold 462 non-local and 33 local symbols. 
694 source Lines were read in Pass 1, producing 25 object records in Pass 2 

16 pages of virtual memory were used to define 15 macros. 


Seren ewe men eee em m em een + 


.$255$DUA28: CMACRO.OBJ JMACRO.MLB; 1 12 
$255$DUA28: CSYSLIBJSTARLET.MLB; 2 3 
TOTALS (all Libraries) 15 


506 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ACTPRI/OBJ=OBJ$:ACTPRI MSRC$:ACTPRI/UPDATE=(ENH$:ACTPRI)+LIB$:MACRO/LIB 
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